home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: 500 MB Amiga Software / 500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso / userbox / publicdomain / mtr / star_lc10.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-22  |  4KB  |  95 lines
  1. /*
  2. $VER: Druckanpassung.rexx 1.10 (21.01.95)
  3.  *********************************************************************/
  4. /* Hilfsprogramm zur Anpassung unterschiedlicher Drucker an                */
  5. /* MTRechnung V2.25 oder höher                                                    */
  6. /* Autor: Manfred Tremmel                                                            */
  7. /* Sprache: ARexx                                                                        */
  8. /*********************************************************************/
  9.  
  10. /* Druckerabhängige Einstellungen                                    */
  11. ESC        = '1b'x
  12. DruBez    = "Star_LC10";                            /* Druckersprachenbezeich. */
  13. D_Z_kl    = ESC || "[0z";                        /* Zeilenabst. 1/8 Zoll        */
  14. D_Z_gr    = ESC || "[1z";                        /* Zeilenabst. 1/6 Zoll        */
  15. D_Schr    = ESC || "[0m";                        /* Standardschrift.            */
  16.                 /* Diese sollte in verschiedenen Größen verfügbar sein    */
  17. D_SStand    = ESC || "[4" || '22'x || "x" || ESC || '680012'x;
  18.                                                         /* Standardgröße                */
  19. D_SGross    = ESC || "[6" || '22'x || "x" || ESC || '6a221b6801'x;
  20.                                                         /* Große Schrift (PLZ)        */
  21. D_SKlein    = ESC || "[4w";                        /* Kleine Schrift (Abs.)    */
  22. D_Br10    = ESC || "[0w";                        /* Schriftbreite 10 cpi        */
  23. D_Br12    = ESC || "[2w";                        /* Schriftbreite 12 cpi        */
  24. D_Br15    = ESC || "[4w";                        /* Schriftbreite 15 cpi        */
  25. D_PEin    = ESC || "[2p";                        /* Proportional ein            */
  26. D_PAus    = ESC || "[1p";                        /* Proportional aus            */
  27. D_UEin    = ESC || "[4m";                        /* Unterstrichen ein            */
  28. D_UAus    = ESC || "[24m";                        /* Unterstrichen aus            */
  29. D_KEin    = ESC || "[3m";                        /* Kursiv ein                    */
  30. D_KAus    = ESC || "[23m";                        /* Kursiv aus                    */
  31. D_FEin    = ESC || "[1m";                        /* Fettdruck ein                */
  32. D_FAus    = ESC || "[22m";                        /* Fettdruck aus                */
  33. D_ZNorm    = ESC || "[3" || '22'x || "x" || ESC || '2000'x;
  34.                                                         /* normaler Zeichenabst.    */ 
  35. D_ZZAbst    = ESC || "[3" || '22'x || "x" || ESC || '1b2018'x;
  36.                                                         /* Zusätzl. Zeichenabst.    */
  37. D_CSchw    = ESC || "[39m";                        /* Druckfarbe Schwarz        */
  38. D_CMag    = ESC || "[35m";                        /* Druckfarbe Magenta        */
  39. D_CZyan    = ESC || "[36m";                        /* Druckfarbe Zyan            */
  40. D_CViol    = ESC || "[34m";                        /* Druckfarbe Violett        */
  41. D_CGelb    = ESC || "[33m";                        /* Druckfarbe Gelb            */
  42. D_CRot    = ESC || "[31m";                        /* Druckfarbe Rot                */
  43. D_CGruen    = ESC || "[32m";                        /* Druckfarbe Grün            */
  44. /* Drucker zurücksetzen (geschieht am Anfang jedes Drucks)                */
  45. D_Rueck    = ESC || "c" || D_CSchw || D_Schr || D_SStand || D_Br10 || D_Z_gr|| D_PAus || D_UAus || D_KAus || D_FAus;
  46. /* Druck beenden (am Ende jeden Ausdrucks!)                                    */
  47. D_Ende    = '0c'x;
  48. /* Ist eine Umrechnung der Umlaute nötig?                                        */
  49. D_UmRe    = "N";
  50. /* Umzurechnende Zeichen                                                            */
  51. D_EingZ    = "";
  52. /* Ausgangszeichen                                                                    */
  53. D_AusgZ    = "";
  54.  
  55. file    = "Drucker/" || DruBez;                /* Druckerdateiname, in dem    */
  56. datei    = DruBez;                                /* die Daten gespeichert         */        
  57. Suc  = OPEN(datei,file,'write');            /* werden öffnen!                    */
  58. IF Suc THEN                                        /* Wenn das geklappt hat,        */
  59.     DO;
  60.         WRITELN(datei,D_Z_kl);                /* schreib die Daten rein.        */
  61.         WRITELN(datei,D_Z_gr);
  62.         WRITELN(datei,D_Schr);
  63.         WRITELN(datei,D_SStand);
  64.         WRITELN(datei,D_SGross);
  65.         WRITELN(datei,D_SKlein);
  66.         WRITELN(datei,D_Br10);
  67.         WRITELN(datei,D_Br12);
  68.         WRITELN(datei,D_Br15);
  69.         WRITELN(datei,D_PEin);
  70.         WRITELN(datei,D_PAus);
  71.         WRITELN(datei,D_UEin);
  72.         WRITELN(datei,D_UAus);
  73.         WRITELN(datei,D_KEin);
  74.         WRITELN(datei,D_KAus);
  75.         WRITELN(datei,D_FEin);
  76.         WRITELN(datei,D_FAus);
  77.         WRITELN(datei,D_ZNorm);
  78.         WRITELN(datei,D_ZZAbst);
  79.         WRITELN(datei,D_CSchw);
  80.         WRITELN(datei,D_CMag);
  81.         WRITELN(datei,D_CZyan);
  82.         WRITELN(datei,D_CViol);
  83.         WRITELN(datei,D_CGelb);
  84.         WRITELN(datei,D_CRot);
  85.         WRITELN(datei,D_CGruen);
  86.         WRITELN(datei,D_Rueck);
  87.         WRITELN(datei,D_Ende);
  88.         WRITELN(datei,D_UmRe);
  89.         WRITELN(datei,D_EingZ);
  90.         WRITELN(datei,D_AusgZ);
  91.     END;
  92. CLOSE(datei);                                    /* Schließ die Datei                */
  93.  
  94. EXIT 0;                                            /* Das wars auch schon!            */
  95.